home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / intern1a / lockdown.bas < prev   
Encoding:
BASIC Source File  |  1999-10-01  |  1.4 KB  |  45 lines
  1. Attribute VB_Name = "Module1"
  2. Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Boolean
  3.     Public Const EWX_FORCE = 4
  4.     Public Const EWX_LOGOFF = 0
  5.     Public Const EWX_REBOOT = 2
  6.     Public Const EWX_SHUTDOWN = 1
  7.  
  8. Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
  9.  
  10.  
  11. Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
  12.     '
  13.     Public Const RAS95_MaxEntryName = 256
  14.     Public Const RAS95_MaxDeviceType = 16
  15.     Public Const RAS95_MaxDeviceName = 32
  16.     '
  17.  
  18.  
  19. Public Type RASCONN95
  20.     dwSize As Long
  21.     hRasCon As Long
  22.     szEntryName(RAS95_MaxEntryName) As Byte
  23.     szDeviceType(RAS95_MaxDeviceType) As Byte
  24.     szDeviceName(RAS95_MaxDeviceName) As Byte
  25.     End Type
  26.     '
  27.  
  28.  
  29. Public Type RASCONNSTATUS95
  30.     dwSize As Long
  31.     RasConnState As Long
  32.     dwError As Long
  33.     szDeviceType(RAS95_MaxDeviceType) As Byte
  34.     szDeviceName(RAS95_MaxDeviceName) As Byte
  35.     End Type
  36.     
  37.  
  38. Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
  39.  
  40.  
  41. Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  42.     Public Const SC_CLOSE = &HF060&
  43.     Public Const MF_BYCOMMAND = &H0&
  44.  
  45.